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Abstract 

Partially observed Markov process (POMP) models, also known as hidden Markov 
models or state space models, are ubiquitous tools for time series analysis. The R package 
pomp provides a very flexible framework for Monte Carlo statistical investigations using 
nonlinear, non-Gaussian POMP models. A range of modern statistical methods for POMP 
models have been implemented in this framework including sequential Monte Carlo, it¬ 
erated filtering, particle Markov chain Monte Carlo, approximate Bayesian computation, 
maximum synthetic likelihood estimation, nonlinear forecasting, and trajectory match¬ 
ing. In this paper, we demonstrate the application of these methodologies using some 
simple toy problems. We also illustrate the specification of more complex POMP mod¬ 
els, using a nonlinear epidemiological model with a discrete population, seasonality, and 
extra-demographic stochasticity. We discuss the specification of user-defined models and 
the development of additional methods within the programming environment provided by 
pomp. 

*This document is a version of a manuscript in press at the Journal of Statistical Software. 

It is provided under the Creative Commons Attribution License. 

Keywords: Markov processes, hidden Markov model, state space model, stochastic dynamical 
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1. Introduction 

A partially observed Markov process (POMP) model consists of incomplete and noisy mea¬ 
surements of a latent, unobserved Markov process. The far-reaching applicability of this class 
of models has motivated much software development (Commandeur et al. 2011). It has been 
a challenge to provide a software environment that can effectively handle broad classes of 
POMP models and take advantage of the wide range of statistical methodologies that have 
been proposed for such models. The pomp software package (King et al. 2015b) differs from 
previous approaches by providing a general and abstract representation of a POMP model. 
Therefore, algorithms implemented within pomp are necessarily applicable to arbitrary POMP 
models. Moreover, models formulated with pomp can be analyzed using multiple method¬ 
ologies in search of the most effective method, or combination of methods, for the problem 
at hand. However, since pomp is designed for general POMP models, methods that exploit 
additional model structure have yet to be implemented. In particular, when linear, Gaussian 
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approximations are adequate for one’s purposes, or when the latent process takes values in a 
small, discrete set, methods that exploit these additional assumptions to advantage, such as 
the extended and ensemble Kalman filter methods or exact hidden-Markov-model methods, 
are available, but not yet as part of pomp. It is the class of nonlinear, non-Gaussian POMP 
models with large state spaces upon which pomp is focused. 

A POMP model may be characterized by the transition density for the Markov process and the 
measurement density^. However, some methods require only simulation from the transition 
density whereas others require evaluation of this density. Still other methods may not work 
with the model itself but with an approximation, such as a linearization. Algorithms for 
which the dynamic model is specihed only via a simulator are said to be plug-and-play (Breto 
et al. 2009; He et al. 2010). Plug-and-play methods can be employed once one has “plugged” a 
model simulator into the inference machinery. Since many POMP models of scientific interest 
are relatively easy to simulate, the plug-and-play property facilitates data analysis. Even 
if one candidate model has tractable transition probabilities, a scientist will frequently wish 
to consider alternative models for which these probabilities are intractable. In a plug-and- 
play methodological environment, analysis of variations in the model can often be achieved by 
changing a few lines of the model simulator codes. The price one pays for the flexibility of plug- 
and-play methodology is primarily additional computational effort, which can be substantial. 
Nevertheless, plug-and-play methods implemented using pomp have proved capable for state 
of the art inference problems (e.g.. King et al. 2008; Bhadra et al. 2011; Shrestha et al. 
2011, 2013; Earn et al. 2012; Roy et al. 2012; Blackwood et al. 2013a,b; He et al. 2013; 
Breto 2014; Blake et al. 2014). The recent surge of interest in plug-and-play methodology 
for POMP models includes the development of nonlinear forecasting (Ellner et al. 1998), 
iterated filtering (lonides et al. 2006, 2015), ensemble Kalman filtering (Shaman and Karspeck 
2012), approximate Bayesian computation (ABC) (Sisson et al. 2007), particle Markov chain 
Monte Carlo (PMCMC) (Andrieu et al. 2010), probe matching (Kendall et al. 1999), and 
synthetic likelihood (Wood 2010). Although the pomp package provides a general environment 
for methods with and without the plug-and-play property, development of the package to date 
has emphasized plug-and-play methods. 

The pomp package is philosophically neutral as to the merits of Bayesian inference. It en¬ 
ables a POMP model to be supplemented with prior distributions on parameters, and several 
Bayesian methods are implemented within the package. Thus pomp is a convenient environ¬ 
ment for those who wish to explore both Bayesian and non-Bayesian data analyses. 

The remainder of this paper is organized as follows. Section 2 defines mathematical notation 
for POMP models and relates this to their representation as objects of class ‘pomp’ in the 
pomp package. Section 3 introduces several of the statistical methods currently implemented 
in pomp. Section 4 constructs and explores a simple POMP model, demonstrating the use of 
the available statistical methods. Section 5 illustrates the implementation of more complex 
POMPs, using a model of infectious disease transmission as an example. Finally, Section 6 
discusses extensions and applications of pomp. 


^We use the term “density” in this article encompass both the continuous and discrete cases. Thus, in the 
latter case, i.e., when state variables and/or measured quantities are discrete, one could replace “probability 
density function” with “probability mass function”. 
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2. POMP models and their representation in pomp 

Let 0 be a p-dimensional real-valued parameter, 8 G For each value of 9, let {X{t;9),t G 
T} be a Markov process, with X{t;9) taking values in M'?. The time index set T C M may 
be an interval or a discrete set. Let {tj € T,i = l,...,iV}, be the times at which X(t',9) 
is observed, and Iq £ T he an initial time. Assume to < ti < t 2 <■■■< We write 
Xi = X{ti-,6) and Xi-j = {Xi, W-i-i, ■ • • iKj). The process Xq-.n is only observed by way of 
another process LiiAt = {Yi,... ,Yf^) with Y^ taking values in W. The observable random 
variables yi: 7 v are assumed to be conditionally independent given Xo,]\f. The data, y^.j^ = 
(y|, ..., y%), are modeled as a realization of this observation process and are considered 
fixed. We suppose that Xo,j\f and Li:Ar have a joint density fxQ.N,YiNi^O-n^ yi:n]0)- The 
POMP structure implies that this joint density is determined by the initial density, fxoixo] 9), 
together with the conditional transition probability density, fx^\Xn-i{xn\xn-i',9), and the 
measurement density, /y„|x„(2/n | ; 0), for 1 < n < A^. In particular, we have 

N 

fXo,N,Yl-.NixO-N,yi:N;0) = fxoixo;9) Ylfx„\X„-iiXn\Xn-l-,0) fY^ixAyn\Xn;0). (1) 

n=l 

Note that this formalism allows the transition density, fx„\x„-i^ measurement density, 
to depend explicitly on n. 

2.1. Implementation of POMP models 

pomp is fully object-oriented: in the package, a POMP model is represented by an S4 object 
(Chambers 1998; Genolini 2008) of class ‘pomp’. Slots in this object encode the components of 
the POMP model, and can be hlled or changed using the constructor function pomp and various 
other convenience functions. Methods for the class ‘pomp’ class use these components to carry 
out computations on the model. Table 1 gives the mathematical notation corresponding to 
the elementary methods that can be executed on a class ‘pomp’ object. 

The rprocess, dprocess, rmeasure, and dmeasure arguments specify the transition probabil¬ 
ities {xn I Xn-i9) and measurement densities /y„|x„ {yn | x„ ; 0). Not all of these ar¬ 

guments must be supplied for any specific computation. In particular, plug-and-play method¬ 
ology by dehnition never uses dprocess. An empty dprocess slot in a class ‘pomp’ object 
is therefore acceptable unless a non-plug-and-play algorithm is attempted. In the package, 
the data and corresponding measurement times are considered necessary parts of a class 
‘pomp’ object whilst specific values of the parameters and latent states are not. Applying the 
simulate function to an object of class ‘pomp’ returns another object of class ‘pomp’, within 
which the data y^.^ have been replaced by a stochastic realization of Yi,x, the corresponding 
realization of Xq-x is accessible via the states method, and the params slot has been filled 
with the value of 9 used in the simulation. 

To illustrate the specification of models in pomp and the use of the package’s inference algo¬ 
rithms, we will use a simple example. The Gompertz (1825) model can be constructed via 


R> library("pomp") 

R> pompExample(gompertz) 
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Method 

Argument to the 
pomp constructor 

Mathematical terminology 

rprocess 

rprocess 

Simulate from /x„|x„_i(a^n | Xn-ilO) 

dprocess 

dprocess 

Evaluate fx„\x„.i ixn \ Xn-i]d) 

measure 

measure 

Simulate from /y„|x„(2/n \xn;0) 

dmeasure 

dmeasure 

Evaluate /y„|x„ {Vn \xn;8) 

rprior 

rprior 

Simulate from the prior distribution 7r(0) 

dprior 

dprior 

Evaluate the prior density 7r(0) 

init.state 

initializer 

Simulate from fx^ (xq ; 8) 

timezero 

to 

to 

time 

times 

tl:N 

obs 

data 

yt.N 

states 

— 

X0:N 

coef 

params 

8 


Table 1: Constituent methods for class ‘pomp’ objects and their translation into mathematical 
notation for POMP models. For example, the rprocess method is set using the rprocess 
argument to the pomp constructor function. 


which results in the creation of an object of class ‘pomp’, named gompertz, in the workspace. 
The structure of this model and its implementation in pomp is described below, in Section 4. 
One can view the components of gompertz listed in Table 1 by executing 


R> obs(gompertz) 

R> states(gompertz) 

R> as.data.frame(gompertz) 
R> plot(gompertz) 

R> timezero(gompertz) 

R> time(gompertz) 

R> coef(gompertz) 

R> init.state(gompertz) 


Executing pompExample () lists other examples provided with the package. 

2.2. Initial conditions 

In some experimental situations, fxo{xo]0) corresponds to a known experimental initializa¬ 
tion, but in general the initial state of the latent process will have to be inferred. If the 
transition density for the dynamic model, /x„|x„_i | ; 0), does not depend on time 

and possesses a unique stationary distribution, it may be natural to set /xq (a^o ; 0 ) to be this 
stationary distribution. Otherwise, and more commonly in the authors’ experience, no clear 
scientifically motivated choice of fxo (xq ; 0) exists and one can proceed by treating the value 
of Xq as a parameter to be estimated. In this case, fxoixoiO) concentrates at a point, the 
location of which depends on 8. 
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2.3. Covariates 

Scientifically, one may be interested in the role of a vector-valued covariate process {Z(t)} 
in explaining the data. Modeling and inference conditional on {Z(t)} can be carried out 
within the general framework for nonhomogeneous POMP models, since the arbitrary densities 
fxn\Xn-i^ fxo and fvnlXn ^^n depend on the observed process {Z{t)}. For example, it may 
be the case that fx^\Xn-ii^n\xn-i]d) depends on n only through Z{t) for tn-i < t < K- 
The covar argument in the pomp constructor allows for time-varying covariates measured at 
times specified in the tcovar argument. A example using covariates is given in Section 5. 


3. Methodology for POMP models 

Data analysis typically involves identifying regions of parameter space within which a postu¬ 
lated model is statistically consistent with the data. Additionally, one frequently desires to 
assess the relative merits of alternative models as explanations of the data. Once the user 
has encoded one or more POMP models as objects of class ‘pomp’, the package provides a 
variety of algorithms to assist with these data analysis goals. Table 2 provides an overview 
of several inference methodologies for POMP models. Each method may be categorized as 
full-information or feature-based, Bayesian or frequentist, and plug-and-play or not plug-and- 
play. 

Approaches that work with the full likelihood function, whether in a Bayesian or frequentist 
context, can be called full-information methods. Since low-dimensional sufficient statistics 
are not generally available for POMP models, methods which take advantage of favorable 
low-dimensional representations of the data typically lose some statistical efficiency. We use 
the term “feature-based” to describe all methods not based on the full likelihood, since such 
methods statistically emphasize some features of the data over others. 

Many Monte Carlo methods of inference can be viewed as algorithms for the exploration of 
high-dimensional surfaces. This view obtains whether the surface in question is the likelihood 
surface or that of some other objective function. The premise behind many recent method¬ 
ological developments in Monte Carlo methods for POMP models is that generic stochastic 
numerical analysis tools, such as standard Markov chain Monte Carlo and Robbins-Monro 
type methods, are effective only on the simplest models. For many models of scientific interest, 
therefore, methods that leverage the POMP structure are needed. Though pomp has suffi¬ 
cient flexibility to encode arbitrary POMP models and methods and therefore also provides a 
platform for the development of novel POMP inference methodology, pomp’s development to 
date has focused on plug-and-play methods. However, the package developers welcome con¬ 
tributions and collaborations to further expand pomp’s functionality in non-plug-and-play 
directions also. In the remainder of this section, we describe and discuss several inference 
methods, all currently implemented in the package. 

3.1. The likelihood function and sequential Monte Carlo 

The log likelihood for a POMP model is i{9) = log/iq.j^(?/jj'.^ ;0), which can be written as a 
sum of conditional log likelihoods, 

N 

n=l 


( 2 ) 
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(a) Plug-and-play 



Frequentist 

Bayesian 

Full information 

Iterated filtering (mif, 

Section 3.2) 

PMCMC (pmcmc. Section 3.3) 

Feature-based 

Nonlinear forecasting (nlf. 
Section 3.6), 
synthetic likelihood 
(probe.match. Section 3.4) 

ABC (abc, Section 3.5) 


(b) Not plug-and-play 



Frequentist 

Bayesian 

Full information 

EM and Monte Carlo EM, 
Kalman hlter 

MCMC 

Feature-based 

Trajectory matching 
(traj .match), 
extended Kalman hlter. 

Yule-Walker equations 

Extended Kalman hlter 


Table 2: Inference methods for POMP models. For those currently implemented in pomp, 
function name and a reference for description are provided in parentheses. Standard 
Expectation-Maximization (EM) and Markov chain Monte Carlo (MCMC) algorithms are 
not plug-and-play since they require evaluation of \ Xn-i ]0). The Kalman filter 

and extended Kalman filter are not plug-and-play since they cannot be implemented based 
on a model simulator. The Kalman filter provides the likelihood for a linear, Gaussian model. 
The extended Kalman hlter employs a local linear Gaussian approximation which can be used 
for frequentist inference (via maximization of the resulting quasi-likelihood) or approximate 
Bayesian inference (by adding the parameters to the state vector). The Yule-Walker equations 
for ARMA models provide an example of a closed-form method of moments estimator. 


where 

in\i-.n-i{0) = log/r„|y,^„_,(?/; | ;6'), (3) 

and we use the convention that y\.Q is an empty vector. The structure of a POMP model 
implies the representation 

4|l:n-l(6') = log j fY„\X„iyn\Xn;0)fx„\Yi.^_^iXn\yl.n-l-,0)dXn (4) 

(cf. Eq. 1). Although i{6) typically has no closed form, it can frequently be computed 
by Monte Carlo methods. Sequential Monte Carlo (SMC) builds up a representation of 
fxnlYi-n-iixn I yl-.n-i that Can be used to obtain an estimate, •^n|i:n-i(^)) of •^n|i:n-i(^) 
hence an approximation, i{0), to i{0). SMC (a basic version of which is presented as Algo¬ 
rithm 1), is also known as the particle filter, since it is conventional to describe the Monte 
Carlo sample, {X^j,j in 1: J} as a swarm of particles representing fxn\Yi.„{xn \ yi-.n'id)- The 
swarm is propagated forward according to the dynamic model and then assimilated to the 
next data point. Using an evolutionary analogy, the prediction step (line 3) mutates the 
particles in the swarm and the hltering step (line 7) corresponds to selection. SMC is imple¬ 
mented in pomp in the pf liter function. The basic particle filter in Algorithm 1 possesses 
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Algorithm 1: Sequential Monte Carlo (SMC, or particle filter): pfliter(P, Np = J), 

using notation from Table 1 where P is a class ‘pomp’ object with definitions for rprocess, 
dmeasure, init.state, coef, and obs. 

input: Simulator for fx„\x„-i i^n \ Xn-i ; 0 ); evaluator for /y„|x„ (Un \xn',0); simulator for 
fxoixo',G)', parameter, 6; data, number of particles, J. 

1 Initialize filter particles: simulate Xq- /xo (• ; 0) for j in 1: J. 

2 for n ini'. N do 

3 Simulate for prediction: ~ j in 1 : J. 

4 Evaluate weights: w{n, j) = fY„\x„ iVnl^nj ; 0) for j in 1: J. 

5 Normalize weights: 'w{n, j) = w{n, j)/ 

6 Apply Algorithm 2 to select indices ki- j with P [kj = m] = w{n,m). 

7 Resample: set X:^j = X^f^^ for j in 1: J. 

8 Compute conditional log likelihood: in\i:n-i = log ”^)) • 

9 end 

output: Log likelihood estimate, i{6) = '^n=i^n\i-.n-A filter sample, X^^.j, for n in 1:A. 
complexity: 0{J) 


the plug-and-play property. Many variations and elaborations to SMC have been proposed; 
these may improve numerical performance in appropriate situations (Cappe et al. 2007) but 
typically lose the plug-and-play property. Arulampalam et al. (2002), Doucet and Johansen 
(2009), and Kantas et al. (2015) have written excellent introductory tutorials on the particle 
filter and particle methods more generally. 


Basic SMC methods fail when an observation is extremely unlikely given the model. This 
leads to the situation that at most a few particles are consistent with the observation, in 
which case the effective sample size (Liu 2001) of the Monte Carlo sample is small and the 
particle filter is said to suffer from particle depletion. Many elaborations of the basic SMC 
algorithm have been proposed to ameliorate this problem. However, it is often preferable to 
remedy the situation by seeking a better model. The plug-and-play property assists in this 
process by facilitating investigation of alternative models. 


In line 6 of Algorithm 1, systematic resampling (Algorithm 2) is used in preference to multi¬ 
nomial resampling. Algorithm 2 reduces Monte Carlo variability while resampling with the 
proper marginal probability. In particular, if all the particle weights are equal then Algo¬ 
rithm 2 has the appropriate behavior of leaving the particles unchanged. As pointed out 
by (Douc et al. 2005), stratified resampling performs better than multinomial sampling and 
Algorithm 2 is in practice comparable in performance to stratified resampling and somewhat 
faster. 
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Algorithm 2: Systematic resampling: Line 6 of Algorithm 1. 
input: Weights, wi-.j, normalized so that J2j=i '^j — 

1 Construct cumulative sum: Cj = ^rn, for j in 1 : J. 

2 Draw a uniform initial sampling point: Ui ~ Uniform(0, J~^)- 

3 Construct evenly spaced sampling points: Uj = Ui + (j — for j in 2 : J. 

4 Initialize: set p = 1. 

5 for j in 1 : J do 

6 while Uj > Cp do 

7 Step to the next resampling index: set p = p + 1. 

8 end 

9 Assign resampling index: set kj = p. 

10 end 

output: Resampling indices, ki-j. 
complexity: 0{J) 


3.2. Iterated filtering 

Iterated filtering techniques maximize the likelihood obtained by SMC (lonides et al. 2006, 
2011, 2015). The key idea of iterated filtering is to replace the model we are interested in 
fitting—which has time-invariant parameters—with a model that is just the same except that 
its parameters take a random walk in time. Over multiple repetitions of the filtering procedure, 
the intensity of this random walk approaches zero and the modified model approaches the 
original one. Adding additional variability in this way has four positive effects: 

Al. It smooths the likelihood surface, which facilitates optimization. 

A2. It combats particle depletion by adding diversity to the population of particles. 

A3. The additional variability can be exploited to explore the likelihood surface and estimate 
of the gradient of the (smoothed) likelihood, based on the same filtering procedure that 
is required to estimate of the value of the likelihood (lonides et al. 2006, 2011). 

A4. It preserves the plug-and-play property, inherited from the particle filter. 

Iterated filtering is implemented in the mif function. By default, mif carries out the procedure 
of lonides et al. (2006). The improved iterated filtering algorithm (IF2) of lonides et al. (2015) 
has shown promise. A limited version of IF2 is available via the method="mif 2" option; a full 
version of this algorithm will be released soon. In all iterated filtering methods, by analogy 
with annealing, the random walk intensity can be called a temperature, which is decreased 
according to a prescribed cooling schedule. One strives to ensure that the algorithm will 
freeze at the maximum of the likelihood as the temperature approaches zero. 

The perturbations on the parameters in lines 2 and 7 of Algorithm 3 follow a normal distri¬ 
bution, with each component, [9]i, of the parameter vector perturbed independently. Neither 
normality nor independence are necessary for iterated filtering, but, rather than varying the 
perturbation distribution, one can transform the parameters to make these simple algorithmic 
choices reasonable. 
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Algorithm 3: Iterated filtering: niif(P, start = 0o> Nmif = M, Np = J, rw. sd = iTi:p, 
ic.lag = L, var.factor = C, cooling.factor = a), using notation from Table 1 where P is 
a class ‘pomp’ object with defined rprocess, dmeasure, init.state, and obs components, 
input: Starting parameter, Oq] simulator for fxo{xo',d)] simulator for 

fx„\x„.A^n I Xn-i;0); evaluator for fy^ix^iVn \xn;0); data, yl.^, labels, 

/ C {1,... ,p}, designating IVPs; fixed lag, L, for estimating IVPs; number of 
particles, J, number of iterations, M; cooling rate, 0 < o < 1; perturbation scales, 
cri:p; initial scale multiplier, C > 0. 

1 for m in 1:M do 

2 Initialize parameters: ~ Normal for i in l:p, j in 1 : J. 

3 Initialize states: simulate Xq ■ &oj) for j in 1: J. 

4 Initialize filter mean for parameters: 9q = Om-i- 

5 Define [-Pi]* = {C^ + 

6 for n in 1 : N do 

7 Perturb parameters: [&nj]^ ~ Normal for i 0 /, j in 1 : J. 

8 Simulate prediction particles: XK ~ fx„\x„.i (• \^n-i,j 5 ®n,j) fo'^ j in 1 : J. 

9 Evaluate weights: w{n,j) = fY„\x„{yn\Xnj ]&n,j) for j in 1 : J. 

10 Normalize weights: w{n, j) = w{n, j)/Y^'l^^w{n,u). 

11 Apply Algorithm 2 to select indices ky j with P [ku = j] = w {n,j). 

12 Resample particles: X^^j = X^f., and for j in 1 : J. 

13 Filter mean: [9n]- = Ylj=i w{n,j) [&n,j]i for i 0 I- 

14 Prediction variance: [Vn+i]i = w{n, j){[Q^j]i - [9n]i)'^ for i 0 I. 

15 end 

16 Update non-IVPs: [9m]i = [9m-i]i + [Vi\i Yn=i[^riX[^ {[9n]i - [9n-i]i) for i 0 I. 

17 Update IVPs: [9m]i = j Yj [®L,j]i fo'^ * ^ 

18 end 

output: Monte Carlo maximum likelihood estimate, 9m- 
complexity: 0{JM) 


Algorithm 3 gives special treatment to a subset of the components of the parameter vector 
termed initial value parameters (IVPs), which arise when unknown initial conditions are 
modeled as parameters. These IVPs will typically be inconsistently estimable as the length of 
the time series increases, since for a stochastic process one expects only early time points to 
contain information about the initial state. Searching the parameter space using time-varying 
parameters is inefficient in this situation, and so Algorithm 3 perturbs these parameters only 
at time zero. 

Lines 7-12 of Algorithm 3 are exactly an application of SMC (Algorithm 1) to a modified 
POMP model in which the parameters are added to the state space. This approach has 
been used in a variety of previously proposed POMP methodologies (Kitagawa 1998; Liu and 
West 2001; Wan and Van Der Merwe 2000) but iterated filtering is distinguished by having 
theoretical justification for convergence to the maximum likelihood estimate (lonides et al. 
2011 ). 





10 


Partially observed Markov processes 


3.3. Particle Markov chain Monte Carlo 


Algorithm 4: Particle Markov Chain Monte Carlo: pmcmcCP, start = 0o> 

Nnicmc = M, Np = J, proposal = ( 7 ), using notation from Table 1 where P is a class ‘pomp’ 
object with defined methods for rprocess, dmeasure, init.state, dprior, and obs. The 
supplied proposal samples from a symmetric, but otherwise arbitrary, MCMC proposal dis¬ 
tribution, q{0^ I 9). 

input: Starting parameter, 6q; simulator for fxo{xo \ 9)] simulator for 

fx„\x„-iixn\xn-i-,9)] evaluator for /Y„|x„( 2 /n | Xn; 0); simulator for q{9^\9)-, data, 
number of particles, J; number of filtering operations, M; perturbation scales, 
cri:p; evaluator for prior, fe{9). 


1 

2 

3 

4 

5 

6 


Initialization: compute ^(0o) using Algorithm 1 with J particles, 
for m in 1:M do 

Draw a parameter proposal, 9^, from the proposal distribution: 0^ ~ 


Compute i{9j^) using Algorithm 1 with J particles. 
Generate U ~ Uniform(0,1). 


Set {9mJi9m)) 



^ {9m-lJ{9m-l)), 


/e(0exp(l(0) 

fe{9m-i) exp{i{9m-i)) ’ 

otherwise. 


Q{' \ 9m—l)- 


7 end 

output: Samples, 9i-m, representing the posterior distribution, \ 

complexity: 0{JM) 


Full-information plug-and-play Bayesian inference for POMP models is enabled by particle 
Markov chain Monte Carlo (PMCMC) algorithms (Andrieu et al. 2010). PMCMC methods 
combine likelihood evaluation via SMC with MCMC moves in the parameter space. The 
simplest and most widely used PMCMC algorithm, termed particle marginal Metropolis- 
Bastings (PMMH), is based on the observation that the unbiased likelihood estimate provided 
by SMC can be plugged in to the Metropolis-Bastings update procedure to give an algorithm 
targeting the desired posterior distribution for the parameters (Andrieu and Roberts 2009). 
PMMB is implemented in pmcmc, as described in Algorithm 4. In part because it gains 
only a single likelihood evaluation from each particle-filtering operation, PMCMC can be 
computationally relatively inefficient (Bhadra 2010; lonides et al. 2015). Nevertheless, its 
invention introduced the possibility of full-information plug-and-play Bayesian inferences in 
some situations where they had been unavailable. 

3.4. Synthetic likelihood of summary statistics 

Some motivations to estimate parameter based on features rather than the full likelihood 
include 

Bl. Reducing the data to sensibly selected and informative low-dimensional summary statis¬ 
tics may have computational advantages (Wood 2010). 

B2. The scientific goal may be to match some chosen characteristics of the data rather than 
all aspects of it. Acknowledging the limitations of all models, this limited aspiration may 
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Algorithms: Synthetic likelihood evaluation: probe (P, nsim=J, probes =S), using 
notation from Table 1 where P is a class ‘pomp’ object with defined methods for rprocess, 
rmeasure, init.state, and obs. 

input: Simulator for i^n \ Xn-i ; 0) simulator for fx^ (xq ; 0) ; simulator for 

fYnlXniUn \xn',0)', parameter, 0; data, yl-x'i number of simulations, J; vector of 
summary statistics or probes, S = (Si,... ,Srf). 

1 Compute observed probes: s* = Si(y^.^) for i in l:d. 

2 Simulate J datasets: ~ /yi.]v(' J I'.J. 

3 Compute simulated probes: sij = for i in 1 : d and j in 1: J. 

4 Compute sample mean: p, = J~^ 'l2j=i ^ij * in 1 :d. 

5 Compute sample covariance: = (J — 1)“^ ~ — y-k) for i and k in l:d. 

6 Compute the log synthetic likelihood: 

hi0) = (s* - - p) - ^ log |S| - I log(27r). (5) 


output: Synthetic likelihood, isi0)- 

complexity: 0{J) 


be all that can reasonably be demanded (Kendall et al. 1999; Wood 2001). 

B3. In conjunction with full-information methodology, consideration of individual features has 
diagnostic value to determine which aspects of the data are driving the full-information 
inferences (Reuman et al. 2006). 

B4. Feature-based methods for dynamic models typically do not require the POMP model 
structure. However, that benefit is outside the scope of the pomp package. 

B5. Feature-based methods are typically doubly plug-and-play, meaning that they require 
simulation, but not evaluation, for both the latent process transition density and the 
measurement model. 

When pursuing goal Bl, one aims to find summary statistics which are as close as possible 
to sufficient statistics for the unknown parameters. Goals B2 and B3 deliberately look for 
features which discard information from the data; in this context the features have been 
called probes (Kendall et al. 1999). The features are denoted by a collection of functions, 
S = (Si,... ,Sd), where each Sj maps an observed time series to a real number. We write 
S = {Si,..., Sd) for the vector-valued random variable with S = S(Yi:Ar), with fs{s]0) 
being the corresponding joint density. The observed feature vector is s* where s* = Si(7/jj'.^), 
and for any parameter set one can look for parameter values for which typical features for 
simulated data match the observed features. One can define a likelihood function, i§{0) = 
fs{s* ',0). Arguing that S should be approximately multivariate normal, for suitable choices 
of the features. Wood (2010) proposed using simulations to construct a multivariate normal 
approximation to is{0), and called this a synthetic likelihood. 
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Simulation-based evaluation of a feature matching criterion is implemented by probe (Algo¬ 
rithm 5). The feature matching criterion requires a scale, and a natural scale to use is the 
empirical covariance of the simulations. Working on this scale, as implemented by probe, there 
is no substantial difference between the probe approaches of Kendall et al. (1999) and Wood 
(2010). Numerical optimization of the synthetic likelihood is implemented by probe .match, 
which offers a choice of the subplex method (Rowan 1990; King 2008) or any method provided 
by optim or the nloptr package (Johnson 2014; Ypma 2014). 

3.5. Approximate Bayesian computation (ABC) 


Algorithm 6: Approximate Bayesian Computation: abc(P, start = 0O) Nmcmc = M, 
probes = S, scale = ri:rf, proposal = g, epsilon = e), using notation from Table 1, where P 
is a class ‘pomp’ object with defined methods for rprocess, rmeasure, init. state, dprior, 
and obs._ 

input: Starting parameter, Oq] simulator for /xo(xo;6*); simulator for 

fx^\x„-i{xn\xn-i]0y, simulator for /y„|x„(yn | ;6'); simulator for q{e^\9)] data, 

number of proposals, M; vector of probes, S = (Si,... ,Sd); perturbation 
scales, fTi:p; evaluator for prior, fe{9); feature scales, ri:^; tolerance, e. 


1 Compute observed probes: s* = Si(y^.^) for i in 1 : d. 

2 for m in 1 : M do 

3 Draw a parameter proposal, 9^^, from the proposal distribution: 0^ ~ 9 (• 

4 Simulate dataset: Yi:Ar ~ /yi.jv(' 

5 Compute simulated probes: Si = Sj(Yi:Ar) for i inl:d. 

6 Generate U ~ Uniform(0,1). 

d / * \ 2 


i-i)- 


Set 9m, = < 


C it 

i=l ^ 
otherwise. 


/e(0m-l)’ 


8 end 

outpnt: Samples, 9i-m, representing the posterior distribution, /e|5^.^(0 | Sy^^)- 
complexity: Nominally 0{M), but performance will depend on the choice of e, r*, and <7*, 
as well as on the choice of probes S. 


ABC algorithms are Bayesian feature-matching techniques, comparable to the frequentist 
generalized method of moments (Marin et al. 2012). The vector of summary statistics S, the 
corresponding random variable S, and the value s* = §(7/jj'.^), are defined as in Section 3.4. 
The goal of ABC is to approximate the posterior distribution of the unknown parameters 
given S = s*. ABC has typically been motivated by computational considerations, as in 
point B1 of Section 3.4 (Sisson et al. 2007; Toni et al. 2009; Beaumont 2010). Points B2 
and B3 also apply (Ratmann et al. 2009). 

The key theoretical insight behind ABC algorithms is that an unbiased estimate of the like¬ 
lihood can be substituted into a Markov chain Monte Carlo algorithm to target the required 
posterior, the same result that justifies PMCMC (Andrieu and Roberts 2009). However, 
ABC takes a different approach to approximating the likelihood. The likelihood of the ob¬ 
served features, is{0) = fs{s* ',9), has an approximately unbiased estimate based on a single 
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Monte Carlo realization Yi-n ~ fri-Ni' given by 





i=l ^ 
otherwise, 


2 


< e" 


( 6 ) 


where is the volume of the d-dimensional unit ball and Tj is a scaling chosen for the 
ith feature. The likelihood approximation in Eq. 6 differs from the synthetic likelihood in 
Algorithm 5 in that only a single simulation is required. As e become small, the bias in 
Eq. 6 decreases but the Monte Carlo variability increases. The ABC implementation abc 
(presented in Algorithm 6) is a random walk Metropolis implementation of ABC-MCMC 
(Algorithm 3 of Marin et al. 2012). In the same style as iterated filtering and PMCMC, we 
assume a Gaussian random walk in parameter space; the package supports alternative choices 
of proposal distribution. 


3.6. Nonlinear forecasting 

Nonlinear forecasting (NLE) uses simulations to build up an approximation to the one-step 
prediction distribution that is then evaluated on the data. We saw in Section 3.1 that SMC 
evaluates the prediction density for the observation, fY^lYi-n-iiVn I Vi n-i tiy first building 
an approximation to the prediction density of the latent process, fx^\Yi.„-ii^n\yi:n-i'i(^)- 
NLE, by contrast, uses simulations to ht a linear regression model which predicts Yn based 
on a collection of L lagged variables, {y„_ci,..., Tn-ci}- The prediction errors when this 
model is applied to the data give rise to a quantity called the quasi-likelihood, which behaves 
for many purposes like a likelihood (Smith 1993). The implementation in nlf maximises the 
quasi-likelihood computed in Algorithm 7, using the subplex method (Rowan 1990; King 
2008) or any other optimizer offerered by optim. The construction of the quasi-likelihood in 
nlf follows the specific recommendations of Kendall et al. (2005). In particular, the choice 
of radial basis functions, fk, in line 5 and the specification of and s in lines 3 and 4 

were proposed by Kendall et al. (2005) based on trial and error. The quasi-likelihood is 
mathematically most similar to a likelihood when min(ci:i;,) = 1, so that iqiO) approximates 
the factorization of the likelihood in Eq. 2. With this in mind, it is natural to set cul = 1 : L. 
However, Kendall et al. (2005) found that a two-step prediction criterion, with min(ci:L) = 2, 
led to improved numerical performance. It is natural to ask when one might choose to use 
quasi-likelihood estimation in place of full likelihood estimation implemented by SMC. Some 
considerations follow, closely related to the considerations for synthetic likelihood and ABC 
(Sections 3.4 and 3.5). 

Cl. NLF benefits from stationarity since (unlike SMC) it uses all time points in the simulation 
to build a prediction rule valid at all time points. Indeed, NLF has not been considered 
applicable for non-stationary models and, on account of this, nlf is not appropriate if the 
model includes time-varying covariates. An intermediate scenario between stationarity 
and full non-stationarity is seasonality, where the dynamic model is forced by cyclical 
covariates, and this is supported by nlf (cf. B1 in Section 3.4). 

C2. Potentially, quasi-likelihood could be preferable to full likelihood in some situations. It 
has been argued that a two-step prediction criterion may sometimes be more robust than 
the likelihood to model misspecification (Xia and Tong 2011) (cf. B2). 
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Algorithm 7: Simulated quasi log likelihood for NLF. Pseudocode for the 

quasi-likelihood function optimized by nlf ( P, start = 0o > nasymp = J, nconverge = i?, 
nrbf = A, lags = ci:L). Using notation from Table 1, P is a class ‘pomp’ object with de¬ 
fined methods for rprocess, rmeasure, init. state, and obs. 
input: Simulator for i^n \ Xn-i ; 0) simulator for fx^ (to ; 0) ; simulator for 

fY-alxSVn I Xn]0)] parameter, 0; data, collection of lags, length of 
discarded transient, B] length of simulation, J; number of radial basis functions, K. 

1 Simulate long stationary time series: Yi-^+j) fyi:(B+j)i- ;^)- 

2 Set Ymin = min{Y(B+i),(s+j)}, Umax = max{Y'(s+l):(B-hJ)} and R = Umax - Umin- 

3 Locations for basis functions: mk = hjnin + R x [1-2 x {k — 1){K — 1)“^ — 0.1] for A; in I'.K. 

4 Scale for basis functions: s = 0.3 x R . 

5 Define radial basis functions: fk{x) = exp{(r — mk)‘^/2s‘^} for k in l:K. 

6 Define prediction function: H{yn-cr,yn-c 2 , ■ ■ ■ = Ilj=i J2k=i ajkfkiVn-cj)- 

7 Compute {ujk ■ j G 1: L, A: G 1:K} to minimize 

, B+J 

= J E [Yn-H{Yn-c„Yn-c2,---,Yn-c,)]"- (7) 

rt=B-|-l 


8 Compute the simulated quasi log likelihood: 




— log27ra - ^ - 

n=l+c 


( 8 ) 


where c = max(ci:L). 


output: Simulated quasi log likelihood, 7 q(0). 
complexity: 0{B) + 0{J) 


C3. Arguably, two-step prediction should be viewed as a diagnostic tool that can be used to 
complement full likelihood analysis rather than replace it (lonides 2011) (cf. B3). 

C4. NLF does not require that the model be Markovian (cf. B4), although the pomp imple¬ 
mentation, nlf, does. 

C5. NLF is doubly plug-and-play (cf. B5). 

C6. The regression surface reconstruction carried out by NLF does not scale well with the 
dimension of the observed data. NLF is recommended only for low-dimensional time 
series observations. 

NLF can be viewed as an estimating equation method, and so standard errors can be com¬ 
puted by standard sandwich estimator or bootstrap techniques (Kendall et al. 2005). The 
optimization in NLF is typically carried out with a fixed seed for the random number gen¬ 
erator, so the simulated quasi-likelihood is a deterministic function. If rprocess depends 
smoothly on the random number sequence and on the parameters, and the number of calls to 
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the random number generator does not depend on the parameters, then fixing the seed results 
in a smooth objective function. However, some common components to model simulators, 
such as rnbinom, make different numbers of calls to the random number generator depending 
on the arguments, which introduces nonsmoothness into the objective function. 


4. Model construction and data analysis: Simple examples 

4.1. A first example: The Gompertz model 

The plug-and-play methods in pomp were designed to facilitate data analysis based on com¬ 
plicated models, but we will first demonstrate the basics of pomp using simple discrete-time 
models, the Gompertz and Ricker models for population growth (Reddingius 1971; Ricker 
1954). The Ricker model will be introduced in Section 4.5 and used in Section 4.6; the re¬ 
mainder of Section 4 will use the Gompertz model. The Gompertz model postulates that the 
density, Xt+At, of a population of organisms at time t + At depends on the density, Xt, at 
time t according to 

Xt+At = K^-^-^^'xr^'et. (9) 

In Eq. 9, K is the carrying capacity of the population, r is a positive parameter, and the 
Et are independent and identically-distributed lognormal random variables with loge* ~ 
Normal(0, u^). Additionally, we will assume that the population density is observed with 
errors in measurement that are lognormally distributed: 

logit ~ Normal (log At,r^) . (10) 

Taking a logarithmic transform of Eq. 9 gives 

logAt+At ~ Normal ((l - 6“'’^*) log A-1 log At, CT^) . (11) 

On this transformed scale, the model is linear and Gaussian and so we can obtain exact 
values of the likelihood function by applying the Kalman filter. Plug-and-play methods are 
not strictly needed; this example therefore allows us to compare the results of generally 
applicable plug-and-play methods with exact results from the Kalman filter. Later we will 
look at the Ricker model and a continuous-time model for which no such special tricks are 
available. 

The first step in implementing this model in pomp is to construct an R object of class ‘pomp’ 
that encodes the model and the data. This involves the specification of functions to do some or 
all of rprocess, rmeasure, and dmeasure, along with data and (optionally) other information. 
The documentation (Tpomp) spells out the usage of the pomp constructor, including detailed 
specifications for all its arguments and links to several examples. 

To begin, we will write a function that implements the process model simulator. This is a 
function that will simulate a single step {t ^ t + At) of the unobserved process (Eq. 9). 

R> gompertz.proc.sim <- function(x, t, params, delta.t, ...) { 

+ eps <- exp(rnorm(n = 1, mean =0, sd = params["sigma"])) 

+ S <- exp(-params["r"] * delta.t) 

+ setNames(params ["K"]' (1 - S) * x["X"]*S * eps, "X") 

+ > 
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The translation from the mathematical description (Eq. 9) to the simulator is straightforward. 
When this function is called, the argument x contains the state at time t. The parameters 
(including K, r, and a) are passed in the argument params. Notice that x and params are 
named numeric vectors and that the output must likewise be a named numeric vector, with 
names that match those of x. The argument delta, t species the time-step size. In this case, 
the time-step will be 1 unit; we will see below how this is specified. 

Next, we will implement a simulator for the observation process, Eq. 10. 

R> gompertz.meas.sim <- function(x, t, params, ...) { 

+ setNames(rlnorm(n = 1, meanlog = log(x["X"]), sd = params["tau"]), "Y") 

+ } 

Again the translation from the measurement model Eq. 10 is straightforward. When the func¬ 
tion gompertz .meas. sim is called, the named numeric vector x will contain the unobserved 
states at time t; params will contain the parameters as before. This return value will be a 
named numeric vector containing a single draw from the observation process (Eq. 10). 

Complementing the measurement model simulator is the corresponding measurement model 
density, which we implement as follows: 

R> gompertz.meas.dens <- function(y, x, t, params, log, ...) { 

+ dlnorm(x = y["Y"], meanlog = log(x["X"]), sdlog = params["tau"], 

+ log = log) 

+ } 

We will need this later on for inference using pf ilter, mif and pmcmc. When gompertz.meas. dens 
is called, y will contain the observation at time t, x and params will be as before, and the pa¬ 
rameter log will indicate whether the likelihood (log=FALSE) or the log likelihood (log=TRUE) 
is required. 

With the above in place, we build an object of class ‘pomp’ via a call to pomp: 

R> gompertz <- pomp(data = data.frame(time = 1:100, Y = NA), times = "time", 

+ rprocess = discrete.time.sim(step.fun = gompertz.proc.sim, delta.t = 1), 

+ rmeasure = gompertz.meas.sim, tO = 0) 

The first argument (data) specifies a data frame that holds the data and the times at which 
the data were observed. Since this is a toy problem, we have as yet no data; in a moment, 
we will generate some simulated data. The second argument (times) specifies which of the 
columns of data is the time variable. The rprocess argument specifies that the process model 
simulator will be in discrete time, with each step of duration delta.t taken by the function 
given in the step.fun argument. The rmeasure argument specifies the measurement model 
simulator function. tO fixes to for this model; here we have chosen this to be one time unit 
prior to the hrst observation. 

It is worth noting that implementing the rprocess, rmeasure, and dmeasure components as R 
functions, as we have done above, leads to needlessly slow computation. As we will see below, 
pomp provides facilities for specifying the model in C, which can accelerate computations 
manyfold. 
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gompertz 



time 

Figure 1: Simulated data from the Gompertz model (Eqs. 9 and 10). This figure shows the 
result of executing plot (gompertz, variables = "Y"). 

Before we can simnlate from the model, we need to specify some parameter values. The 
parameters must be a named nnmeric vector containing at least all the parameters referenced 
by the functions gompertz .proc. sim and gompertz .meas. sim. The parameter vector needs 
to determine the initial condition X{tQ) as well. Let us take our parameter vector to be 

R> theta <- c(r = 0.1, K = 1, sigma = 0.1, tan = 0.1, X.O = 1) 

The parameters r, K, a, and r appear in gompertz. proc. sim and gompertz .meas. sim. The 
initial condition Xq is also given in theta. The fact that the initial condition parameter’s 
name ends in . 0 is significant: it tells pomp that this is the initial condition of the state variable 
X. This nse of the . 0 suffix is the default behavior of pomp: one can however parameterize the 
initial condition distribution arbitrarily using pomp’s optional initializer argnment. 

We can now simulate the model at these parameters: 

R> gompertz <- simulate(gompertz, params = theta) 

Now gompertz is identical to what it was before, except that the missing data have been 
replaced by simulated data. The parameter vector (theta) at which the simulations were 
performed has also been saved internally to gompertz. We can plot the simulated data via 

R> plot(gompertz, variables = "Y") 

Fig. 1 shows the results of this operation. 

4.2. Computing likelihood using SMC 

As discussed in Section 3, some parameter estimation algorithms in the pomp package are 
doubly plug-and-play in that they require only rprocess and rmeasure. These include the 
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nonlinear forecasting algorithm nlf, the probe-matching algorithm probe .match, and ap¬ 
proximate Bayesian computation via abc. The plug-and-play full-information methods in 
pomp, however, require dmeasure, i.e., the ability to evaluate the likelihood of the data given 
the unobserved state. The gompertz .meas. dens above does this, but we must fold it into 
the class ‘pomp’ object in order to use it. We can do this with another call to pomp: 

R> gompertz <- pomp(gompertz, dmeasure = gompertz.meas.dens) 

The result of the above is a new class ‘pomp’ object gompertz in every way identical to the 
one we had before, but with the measurement-model density function dmeasure now specified. 

To estimate the likelihood of the data, we can use the function pf ilter, an implementation of 
Algorithm 1. We must decide how many concurrent realizations (particles) to use: the larger 
the number of particles, the smaller the Monte Carlo error but the greater the computational 
burden. Here, we run pf ilter with 1000 particles to estimate the likelihood at the true 
parameters: 

R> pf <- pfilter(gompertz, params = theta, Np = 1000) 

R> loglik.truth <- logLik(pf) 

R> loglik.truth 
[1] 36.27102 

Since the true parameters (i.e., the parameters that generated the data) are stored within the 
class ‘pomp’ object gompertz and can be extracted by the coef function, we could have done 


R> pf <- pfilter(gompertz, params = coef(gompertz), Np = 1000) 
or simply 

R> pf <- pfilter(gompertz, Np = 1000) 

Now let us compute the log likelihood at a different point in parameter space, one for which 
r, K, and a are each 50% higher than their true values. 

R> theta.guess <- theta.true <- coef(gompertz) 

R> theta.guess[c("r", "K" , "sigma")] <- 1.5 * theta.true[c("r", "K" , "sigma")] 
R> pf <- pfilter(gompertz, params = theta.guess, Np = 1000) 

R> loglik.guess <- logLik(pf) 

R> loglik.guess 
[1] 25.19585 

In this case, the Kalman filter computes the exact log likelihood at the true parameters to 
be 36.01, while the particle filter with 1000 particles gives 36.27. Since the particle filter 
gives an unbiased estimate of the likelihood, the difference is due to Monte Carlo error in 
the particle filter. One can reduce this error by using a larger number of particles and/or 
by re-running pf ilter multiple times and averaging the resulting estimated likelihoods. The 
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latter approach has the advantage of allowing one to estimate the Monte Carlo error itself; 
we will demonstrate this in Section 4.3. 

4.3. Maximum likelihood estimation via iterated filtering 

Let us use the iterated filtering approach described in Section 3.2 to obtain an approximate 
maximum likelihood estimate for the data in gompertz. Since the parameters of Eqs. 9 and 10 
are constrained to be positive, when estimating, we transform them to a scale on which they 
are unconstrained. The following encodes such a transformation and its inverse: 

R> gompertz.log.tf <- function(params, ...) log(params) 

R> gompertz.exp.tf <- function(params, ...) exp(params) 


We add these to the existing class ‘pomp’ object via: 

R> gompertz <- pomp(gompertz, toEstimationScale = gompertz.log.tf, 
+ fromEstimationScale = gompertz.exp.tf) 


The following codes initialize the iterated filtering algorithm at several starting points around 
theta.true and estimate the parameters r, r, and a. 

R> estpars <- c("r", "sigma", "tau") 

R> libraryC'foreach") 

R> mifl <- foreach(i = 1:10, .combine = c) yodopar"/, { 

+ theta.guess <- theta.true 

+ rlnorm(n = length(estpars), meanlog = log(theta.guess[estpars]), 

+ sdlog = 1) -> theta.guess[estpars] 

+ mif(gompertz, Nmif = 100, start = theta.guess, transform = TRUE, 

+ Np = 2000, var.factor = 2, cooling.fraction = 0.7, 

+ rw.sd = c(r = 0.02, sigma = 0.02, tau = 0.02)) 

+ } 

R> pfl <- foreach(mf = mifl, .combine = c) ydopary { 

+ pf <- replicate(n = 10, logLik(pfliter(mf, Np = 10000))) 

+ logmeanexp(pf) 

+ } 

Note that we have set transform = TRUE in the call to mif above: this causes the parame¬ 
ter transformations we have specified to be applied to enforce the positivity of parameters. 
Note also that we have used the foreach package (Revolution Analytics and Weston 2014) to 
parallelize the computations. 

Each of the 10 mif runs ends up at a different point estimate (Fig. 2). We focus on that 
with the highest estimated likelihood, having evaluated the likelihood several times to reduce 
the Monte Carlo error in the likelihood evaluation. The particle filter produces an unbiased 
estimate of the likelihood; therefore, we will average the likelihoods, not the log likelihoods. 
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Figure 2: Convergence plots can be used to help diagnose convergence of the iterated filtering 
(IF) algorithm. These and additional diagnostic plots are produced when plot is applied to 
a class ‘mif’ or class ‘mifList’ object. 


R> mfl <- mif1[[which.max(pfl)]] 

R> theta.mif <- coef(mfl) 

R> loglik.mif <- replicate(n = 10, logLikCpfilter(mf1, Np = 10000))) 

R> loglik.mif <- logmeanexp(loglik.mif, se = TRUE) 

R> theta.true <- coef(gompertz) 

R> loglik.true <- replicate(n = 10, logLikCpfliter(gompertz, Np = 20000))) 
R> loglik.true <- logmeanexp(loglik.true, se = TRUE) 


For the calculation above, we have replicated the iterated filtering search, made a careful 
estimation of the log likelihood, f, and its standard error using pf liter at each of the resulting 
point estimates, and then chosen the parameter corresponding to the highest likelihood as our 
numerical approximation to the MLE. Taking advantage of the Gompertz model’s tractability, 
we also use the Kalman filter to maximize the exact likelihood, i, and evaluate it at the 
estimated MLE obtained by mif. The resulting estimates are shown in Table 3. Usually, the 
last row and column of Table 3 would not be available even for a simulation study validating 
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r 

a 

T 


s.e. 

1 

truth 

0.1000 

0.1000 

0.1000 

35.99 

0.03 

36.01 

mif MLE 

0.0127 

0.0655 

0.1200 

37.68 

0.04 

37.62 

exact MLE 

0.0322 

0.0694 

0.1170 

37.87 

0.02 

37.88 


Table 3: Results of estimating parameters r, a, and r of the Gompertz model (Eqs. 9 and 10) 
by maximum likelihood using iterated filtering (Algorithm 3), compared with the exact MLE 
and with the true value of the parameter. The first three columns show the estimated values 
of the three parameters. The next two columns show the log likelihood, i, estimated by SMC 
(Algorithm 1) and its standard error, respectively. The exact log likelihood, i, is shown in the 
rightmost column. An ideal likelihood-ratio 95% confidence set, not usually computationally 
available, includes all parameters having likelihood within qchisqCO. 95 ,df =3)/2 = 3.91 of 
the exact MLE. We see that both the mif MLE and the truth are in this set. In this example, 
the mif MLE is close to the exact MLE, so it is reasonable to expect that profile likelihood 
confidence intervals and likelihood ratio tests constructed using the mif MLE have statistical 
properties similar to those based on the exact MLE. 

the inference methodology for a known POMP model. In this case, we see that the mif 
procedure is successfully maximizing the likelihood up to an error of about 0.1 log units. 

4.4. Full-information Bayesian inference via PMCMC 

To carry out Bayesian inference we need to specify a prior distribution on unknown parame¬ 
ters. The pomp constructor function provides the rprior and dprior arguments, which can be 
filled with functions that simulate from and evaluate the prior density, respectively. Methods 
based on random-walk Metropolis-Bastings require evaluation of the prior density (dprior), 
but not simulation (rprior), so we specify dprior for the Gompertz model as follows. 

R> hyperparams <- list(min = coef(gompertz)/lO, max = coef(gompertz) * 10) 

R> gompertz.dprior <- function (params, ..., log) { 

+ f <- sum(dunif(params, min = hyperparams$min, max = hyperparams$max, 

+ log = TRUE)) 

+ if (log) f else exp(f) 

+ } 

The PMGMC algorithm described in Section 3.3 can then be applied to draw a sample from 
the posterior. Recall that, for each parameter proposal, PMCMG pays the full price of a 
particle-filtering operation in order to obtain the Metropolis-Bastings acceptance probability. 
For the same price, iterated filtering obtains, in addition, an estimate of the derivative and 
a probable improvement of the parameters. For this reason, PMGMC is relatively inefficient 
at traversing parameter space. When Bayesian inference is the goal, it is therefore advisable 
to first locate a neighborhood of the MLE using, for example, iterated filtering. PMCMC 
can then be initialized in this neighborhood to sample from the posterior distribution. The 
following adopts this approach, running 5 independent PMCMC chains using a multivariate 
normal random-walk proposal (with diagonal variance-covariance matrix, see 7mvn.diag.rw). 
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Figure 3: Diagnostic plots for the PMCMC algorithm. The trace plots in the left column show 
the evolution of 5 independent MCMC chains after a burn-in period of length 20000. Kernel 
density estimates of the marginal posterior distributions are shown at right. The effective 
sample size of the 5 MCMC chains combined is lowest for the r variable and is 250; the use 
of 40000 proposal steps in this case is a modest number. The density plots at right show the 
estimated marginal posterior distributions. The vertical line corresponds to the true value of 
each parameter. 


R> pmcmcl <- f oreach(i=l: 5, . combine=c) °/odopar°/o { 

+ pmcmc(pomp(gompertz, dprior = gompertz.dprior), start = theta.mif, 
+ Nmcmc = 40000, Np = 100, max.fail = Inf, 

+ proposal=mvn.diag.rw(c(r = 0.01, sigma = 0.01, tau = 0.01))) 

+ } 


Comparison with the analysis of Section 4.3 reinforces the observation of Bhadra (2010) that 
PMCMC can require orders of magnitude more computation than iterated filtering. Iterated 
filtering may have to be repeated multiple times while computing profile likelihood plots, 
whereas one successful run of PMCMC is sufficient to obtain all required posterior inferences. 
However, in practice, multiple runs from a range of starting points is always good practice 
since convergence cannot be reliably assessed on the basis of a single chain. To verify the 
convergence of the approach or to compare the performance with other approaches, we can 
use diagnostic plots produced by the plot command (see Fig. 3). 
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4.5. A second example: The Ricker model 

In Section 4.6, we will illustrate probe matching (Section 3.4) using a stochastic version of the 
Ricker map (Ricker 1954). We switch models to allow direct comparison with Wood (2010), 
whose synthetic likelihood computations are reproduced below. In particular, the results of 
Section 4.6 demonstrate frequentist inference using synthetic likelihood and also show that 
the full likelihood is both numerically tractable and reasonably well behaved, contrary to the 
claim of Wood (2010). We will also take the opportunity to demonstrate features of pomp 
that allow acceleration of model codes through the use of R’s facilities for compiling and 
dynamically linking C code. 

The Ricker model is another discrete-time model for the size of a population. The population 
size, Nt, at time t is postulated to obey 

Nt+i = r Nt exp{-Nt + et), e* ~ Normal (O, a^) . (12) 

In addition, we assume that measurements, 1^, of W are themselves noisy, according to 

Tt ~ Poisson (ijiW), (13) 

where is a scaling parameter. As before, we will need to implement the model’s state- 
process simulator (rprocess). We have the option of writing these functions in R, as we did 
with the Gompertz model. However, we can realize manyfold speed-ups by writing these in 
C. In particular, pomp allows us to write snippets of C code that it assembles, compiles, and 
dynamically links into a running R session. To begin the process, we will write snippets for 
the rprocess, rmeasure, and dmeasure components. 

R> ricker.sim <- " 

+ e = rnorm(0, sigma); 

+ N = r * N * exp(-N + e); 

+ " 

R> ricker.rmeas <- " 

+ y = rpoisCphi * N); 

+ " 

R> ricker.dmeas <- " 

+ lik = dpoisCy, phi * N, give_log); 

+ " 

Note that, in this implementation, both N and e are state variables. The logical flag give_log 
requests the likelihood when FALSE, the log likelihood when TRUE. Notice that, in these 
snippets, we never declare the variables; pomp will construct the appropriate declarations 
automatically. 

In a similar fashion, we can add transformations of the parameters to enforce constraints. 

R> log.trans <- " 

+ Tr = log(r); 

+ Tsigma = log(sigma); 

+ Tphi = log(phi); 

+ TN_0 = log(N_0);" 
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R> exp.trans <- " 


+ 

Tr = 

exp(r); 

+ 

Tsigma = exp(sigma); 

+ 

Tphi 

= exp(phi); 

+ 

TN_0 

= exp(N_0);" 


Note that in the foregoing C snippets, the prefix T designates the transformed version of the 
parameter. A full set of rules for using Csnippets, including illustrative examples, is given in 
the package help system (?Csnippet). 

Now we can construct a class ‘pomp’ object as before and fill it with simulated data: 

R> pompCdata = data.frame(time = seq(0, 50, by = 1), y = NA), 

+ rprocess = discrete.time.sim(step.fun = Csnippet(richer.sim), 

+ delta.t = 1), rmeasure = Csnippet(richer.rmeas), 

+ dmeasure = Csnippet(richer.dmeas), 

+ toEstimationScale = Csnippet(log.trans), 

+ fromEstimationScale = Csnippet(exp.trans), 

+ paramnames = c("r", "sigma", "phi", "N.O", "e.O"), 

+ statenames = c("N", "e"), times = "time", tO = 0, 

+ params = c(r = exp(3.8), sigma = 0.3, phi = 10, 

+ N.0=7,e.0=0))-> richer 

R> richer <- simulate(ricker,seed=73691676L) 


4.6. Feature-based synthetic likelihood maximization 

In pomp, probes are simply functions that can be applied to an array of real or simulated data 
to yield a scalar or vector quantity. Several functions that create useful probes are included 
with the package, including those recommended by Wood (2010). In this illustration, we will 
make use of these probes: probe .marginal, probe, acf, and probe, nlar. probe .marginal 
regresses the data against a sample from a reference distribution; the probe’s values are those 
of the regression coefficients, probe. acf computes the auto-correlation or auto-covariance of 
the data at specified lags, probe.nlar fits a simple nonlinear (polynomial) autoregressive 
model to the data; again, the coefficients of the fitted model are the probe’s values. We 
construct a list of probes: 

R> plist <- list(probe.marginal("y", ref = obs(ricker), transform = sqrt), 

+ probe.acf("y", lags = c(0, 1, 2, 3, 4), transform = sqrt), 

+ probe.nlar("y", lags = c(l, 1, 1, 2), powers = c(l, 2, 3, 1), 

+ transform = sqrt)) 

Each element of plist is a function of a single argument. Each of these functions can be 
applied to the data in richer and to simulated data sets. Calling pomp’s function probe 
results in the application of these functions to the data, and to each of some large number, 
nsim, of simulated data sets, and finally to a comparison of the two. [Note that probe 
functions may be vector-valued, so a single probe taking values in M*’ formally corresponds 
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to a collection of k probe functions in the terminology of Section 3.4.] Here, we will apply 
probe to the Ricker model at the true parameters and at a wild guess. 

R> pb.truth <- probe(richer, probes = plist, nsim = 1000, seed = 1066L) 

R> guess <- c(r = 20, sigma = 1, phi = 20, N.O = 7, e.O = 0) 

R> pb.guess <- probe(richer, params = guess, probes = plist, nsim = 1000, 

+ seed = 1066L) 

Results summaries and diagnostic plots showing the model-data agreement and correlations 
among the probes can be obtained by 

R> summary(pb.truth) 

R> summary(pb.guess) 

R> plot(pb.truth) 

R> plot(pb.guess) 

An example of a diagnostic plot (using a smaller set of probes) is shown in Fig. 4. Among the 
quantities returned by summary is the synthetic likelihood (Algorithm 5). One can attempt 
to identify parameters that maximize this quantity; this procedure is referred to in pomp 
as “probe matching”. Let us now attempt to fit the Ricker model to the data using probe¬ 
matching. 

R> pm <- probe.match(pb.guess, est = c("r", "sigma", "phi"), transform = TRUE, 
+ method = "Nelder-Mead", maxit = 2000, seed = 1066L, reltol = le-08) 

This code runs optim’s Nelder-Mead optimizer from the starting parameters guess in an 
attempt to maximize the synthetic likelihood based on the probes in plist. Both the starting 
parameters and the list of probes are stored internally in pb.guess, which is why we need not 
specify them explicitly here. While probe.match provides substantial flexibility in choice of 
optimization algorithm, for situations requiring greater flexibility, pomp provides the function 
probe .match, objfun, which constructs an objective function suitable for use with arbitrary 
optimization routines. 

By way of putting the synthetic likelihood in context, let us compare the results of estimating 
the Ricker model parameters using probe-matching and using iterated filtering (IF), which is 
based on likelihood. The following code runs 600 IF iterations starting at guess: 

R> mf <- mif(richer, start = guess, Nmif = 100, Np = 1000, transform = TRUE, 

+ cooling.fraction = 0.95*50, var.factor = 2, ic.lag = 3, 

+ rw.sd=c(r = 0.1, sigma = 0.1, phi = 0.1), max.fail = 50) 

R> mf <- continue(mf, Nmif = 500, max.fail = 20) 

Table 4 compares parameters, Monte Carlo likelihoods (£), and synthetic likelihoods (£§, based 
on the probes in plist) at each of (a) the guess, (b) the truth, (c) the MLE from mif , and 
(d) the maximum synthetic likelihood estimate (MSLE) from probe.match. These results 
demonstrate that it is possible, and indeed not difficult, to maximize the likelihood for this 
model, contrary to the claim of Wood (2010). Since synthetic likelihood discards some of the 
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Figure 4: Results of plot on a class ‘probed.pomp’-class object. Above the diagonal, the 
pairwise scatterplots show the values of the probes on each of 1000 data sets. The red lines 
show the values of each of the probes on the data. The panels along the diagonal show the 
distributions of the probes on the simulated data, together with their values on the data and 
a two-sided p value. The numbers below the diagonal are the Pearson correlations between 
the corresponding pairs of probes. 
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r 

a 


i 

s.e.(£) 

4 

s.e.(4) 

guess 

20.0 

1.000 

20.0 

-230.8 

0.08 

-5.6 

0.16 

truth 

44.7 

0.300 

10.0 

-139.0 

0.03 

17.7 

0.03 

MLE 

45.0 

0.186 

10.2 

-137.2 

0.04 

18.0 

0.04 

MSLE 

42.1 

0.337 

11.3 

-145.7 

0.03 

19.4 

0.02 


Table 4: Parameter estimation by means of maximum synthetic likelihood (Algorithm 5) vs. 
by means of maximum likelihood via iterated filtering (Algorithm 3). The row labeled “guess” 
contains the point at which both algorithms were initialized. That labeled “truth” contains the 
true parameter value, i.e., that at which the data were generated. The rows labeled “MLE” 
and “MSLE” show the estimates obtained using iterated filtering and maximum synthetic 
likelihood, respectively. Parameters r, a, and r were estimated; all others were held at their 
true values. The columns labeled i and £§ are the Monte Carlo estimates of the log likelihood 
and the log synthetic likelihood, respectively; their Monte Carlo standard errors are also 
shown. While likelihood maximization results in an estimate for which both i and exceed 
their values at the truth, the value of i at the MSLE is smaller than at the truth, an indication 
of the relative statistical inefficiency of maximum synthetic likelihood. 


information in the data, it is not surprising that Table 4 also shows the statistical inefficiency 
of maximum synthetic likelihood relative to that of likelihood. 

4.7. Bayesian feature matching via ABC 

Whereas synthetic likelihood carries out many simulations for each likelihood estimation, ABC 
(as described in Section 3.5) uses only one. Each iteration of ABC is therefore much quicker, 
essentially corresponding to the cost of SMC with a single particle or synthetic likelihood 
with a single simulation. A consequence of this is that ABC cannot determine a good relative 
scaling of the features within each likelihood evaluation and this must be supplied in advance. 
One can imagine an adaptive version of ABC which modifies the scaling during the course of 
the algorithm, but here we do a preliminary calculation to accomplish this. We return to the 
Gompertz model to faciliate comparison between ABC and PMCMC. 

R> plist <- list(probe.mean(var = "Y", transform = sqrt), 

+ probe.acf("Y", lags = c(0, 5, 10, 20)), 

+ probe.marginal("Y", ref = obs(gompertz))) 

+ psim <- probe(gompertz, probes = plist, nsim = 500) 

+ scale.dat <- apply(psim$simvals, 2, sd) 

R> abcl <- foreachd = 1:5, .combine = c) yodopary, { 

+ abc(pomp(gompertz, dprior = gompertz.dprior), Nabc = 4e6, 

+ probes = plist, epsilon = 2, scale = scale.dat, 

+ proposal=mvn.diag.rw(c(r = 0.01, sigma = 0.01, tan = 0.01))) 

+ } 

The effective sample size of the ABC chains is lowest for the r parameter (as was the case 
for PMCMC) and is 450, as compared to 250 for pmcmc in Section 4.4. The total compu¬ 
tational effort allocated to abc here matches that for pmcmc since pmcmc used 100 particles 
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Figure 5: Marginal posterior distributions using full information via pmcmc (solid line) and 
partial information via abc (dashed line). Kernel density estimates are shown for the posterior 
marginal densities of log^Q(r) (left panel), logig(cT) (middle panel), and log]^o('’') (right panel). 
The vertical lines indicate the true values of each parameter. 


for each likelihood evaluation but is awarded 100 times fewer Metropolis-Hastings steps. In 
this example, we conclude that abc mixes somewhat more rapidly (as measured by total 
computational effort) than pmcmc. Fig. 5 investigates the statistical efficiency of abc on this 
example. We see that abc gives rise to somewhat broader posterior distributions than the 
full-information posteriors from pmcmc As in all numerical studies of this kind, one cannot 
readily generalize from one particular example: even for this specihc model and dataset, the 
conclusions might be sensitive to the algorithmic settings. However, one should be aware of 
the possibility of losing substantial amounts of information even when the features are based 
on reasoned scientific argument (Shrestha et al. 2011; lonides 2011). Despite this loss of sta¬ 
tistical efficiency, points B2-B5 of Section 3.4 identify situations in which ABC may be the 
only practical method available for Bayesian inference. 

4.8. Parameter estimation by simulated quasi-likelihood 

Within the pomp environment, it is fairly easy to try a quick comparison to see how nlf (Sec¬ 
tion 3.6) compares with mif (Section 3.2) on the Gompertz model. Carrying out a simulation 
study with a correctly specified POMP model is appropriate for assessing computational and 
statistical efficiency, but does not contribute to the debate on the role of two-step prediction 
criteria to fit misspecified models (Xia and Tong 2011; lonides 2011). The nlf implementation 
we will use to compare to the mif call from Section 4.3 is 

R> nlfl <- nlf(gompertz, nasymp = 1000, nconverge = 1000, lags = c(2, 3), 

+ start =c(r=l, K=2, sigma = 0.5, tau = 0.5, X.O = 1), 

+ est = c("r", "sigma", "tau"), transform = TRUE) 
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Figure 6: Comparison of mif and nlf for 10 simulated datasets using two criteria. In both 
plots, the maximum likelihood estimate (MLE), 9, obtained using iterated filtering is com¬ 
pared with the maximum simulated quasi-likelihood (MSQL) estimate, 6, obtained using 
nonlinear forecasting. (A) Improvement in estimated log likelihood, £, at point estimate over 
that at the true parameter value, 9. (B) Improvement in simulated log quasi-likelihood ig, 
at point estimate over that at the true parameter value, 9. In both panels, the diagonal line 
is the 1-1 line. 


where the first argument is the class ‘pomp’ object, start is a vector containing model 
parameters at which nlf’s search will begin, est contains the names of parameters nlf will 
estimate, and lags specifies which past values are to be used in the autoregressive model. The 
transform = TRUE setting causes the optimization to be performed on the transformed scale, 
as in Section 4.3. In the call above lags = c(2, 3) specifies that the autoregressive model 
predicts each observation, yt using yt -2 and ?/t- 3 , as recommended by Kendall et al. (2005). 
The quasi-likelihood is optimized numerically, so the reliability of the optimization should be 
assessed by doing multiple fits with different starting parameter values; the results of a small 
experiment (not shown) indicate that, on these simulated data, repeated optimization is not 
needed, nlf defaults to optimization by the subplex method (Rowan 1990; King 2008), though 
all optimization methods provided by optim are available as well, nasymp sets the length of 
the simulation on which the quasi-likelihood is based; larger values will give less variable 
parameter estimates, but will slow down the fitting process. The computational demand of 
nlf is dominated by the time required to generate the model simulations, so efficient coding 
of rprocess is worthwhile. 

Fig. 6 compares the true parameter, 9, with the maximum likelihood estimate (MLE), 9, 
from mif and the maximized simulated quasi-likelihood (MSQL), 9, from nlf. Eig. 6A plots 
£(9) — i{9) against £(9) — £{9), showing that the MSQL estimate can fall many units of log 
likelihood short of the MLE. Eig. 6B plots £q{9) — £q{9) against £q{9) — £q{9), showing 
that likelihood-based inference is almost as good as nlf at optimizing the simulated quasi¬ 
likelihood criterion which nlf targets. Fig. 6 suggests that the MSQL may be inefficient, since 
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Figure 7: Diagram of the SIR epidemic model. The host population is divided into three 
classes according to infection status: S, susceptible hosts; I, infected (and infectious) hosts; 
R, recovered and immune hosts. Births result in new susceptibles and all individuals have a 
common death rate p. Since the birth rate equals the death rate, the expected population 
size, P = S +1 + R, remains constant. The S—t-I rate. A, called the force of infection, depends 
on the number of infectious individuals according to A(t) = f3I/N. The I—t-R, or recovery, 
rate is 7 . The case reports, C, result from a process by which new infections are recorded with 
probability p. Since diagnosed cases are treated with bed-rest and hence removed, infections 
are counted upon transition to R. 


it can give estimates with poor behavior according to the statistically efficient criterion of 
likelihood. Another possibility is that this particular implementation of nlf was unfortunate. 
Each mif optimization took 26.9 sec to run, compared to 3.7 sec for nlf, and it is possible 
that extra computer time or other algorithmic adjustments could substantially improve either 
or both estimators. It is hard to ensure a fair comparison between methods, and in practice 
there is little substitute for some experimentation with different methods and algorithmic 
settings on a problem of interest. If the motivation for using NLF is preference for 2-step 
prediction in place of the likelihood, a comparison with SMC-based likelihood evaluation and 
maximization is useful to inform the user of the consequences of that preference. 


5. A more complex example: Epidemics in continuous time 

5.1. A stochastic, seasonal SIR model 

A mainstay of theoretical epidemiology, the SIR model describes the progress of a contagious, 
immunizing infection through a population of hosts (Kermack and McKendrick 1927; An¬ 
derson and May 1991; Keeling and Rohani 2008). The hosts are divided into three classes, 
according to their status vis-a-vis the infection (Fig. 7). The susceptible class (S) contains 
those that have not yet been infected and are thereby still susceptible to it; the infected class 
(I) comprises those who are currently infected and, by assumption, infectious; the removed 
class (R) includes those who are recovered or quarantined as a result of the infection. Individ¬ 
uals in R are assumed to be immune against reinfection. We let S{t), I{t), and R{t) represent 
the numbers of individuals within the respective classes at time t. 

It is natural to formulate this model as a continuous-time Markov process. In this process, the 
numbers of individuals within each class change through time in whole-number increments as 
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discrete births, deaths, and passages between compartments occur. Let A^ab be the stochastic 
counting process whose value at time t is the number of individuals that have passed from 
compartment A to compartment B during the interval [to, t), where to is an arbitrary starting 
point not later than the first observation. We use the notation N.g to refer to births and A^a* 
to refer to deaths from compartment A. Let us assume that the per capita birth and death 
rates, and the rate of transition, 7 , from I to R are constants. The S to I transition rate, the 
so-called force of infection, X{t), however, should be an increasing function of I{t). For many 
infections, it is reasonable to assume that the X{t) is jointly proportional to the fraction of 
the population infected and the rate at which an individual comes into contact with others. 
Here, we will make these assumptions, writing X{t) = /3I{t)/P, where /3 is the transmission 
rate and P = S + I + R is the population size. We will go further and assume that birth and 
death rates are equal and independent of infection status; we will let p denote the common 
rate. A consequence is that the expected population size remains constant. 

The continuous-time Markov process is fully specified by the infinitesimal increment proba¬ 
bilities. Specifically, writing AN{t) = N(t + h) — N(t), we have 

P [AN.sit) = 11 Sit),Iit),Rit)] = p Pit) h + oih), 

P [ANsiit) = 11 Sit),Iit),Rit)] = Xit) Sit) h + oih), 

P [AiViR(t) = 11 Sit),Iit),Rit)] = 7 lit) h + oih), 

F[ANs.it) = l\Sit),Iit),Rit)] = pSit)h + oih), ^ ^ 

P [ANi.it) = l\Sit),Iit),Rit)] = pIit)h + oih), 

P [AAr. (t) = 11 Sit),Iit),Rit)] = p Rit) h + oih), 

together with statement that all events of the form 

{AAAB(i)>l} and {AN^sit) = i-, ANc^it) = 1} 

for A, B, C, D with iA, B) / iC,D) have probability o(/i). The counting processes are 
coupled to the state variables (Breto and lonides 2011) via the following identities 

ASit) = AN.sit) - ANsiit) - ANs.it), 

Alit) = ANsiit) - ANinit) - AN,, it), (15) 

AR(t) = AAiR(t)-AAR.(t). 


Taking expectations of Eqs. 14 and 15, dividing through by h, and taking a limit as h f 0, 
one obtains a system of nonlinear ordinary differential equations which is known as the de¬ 
terministic skeleton of the model (Coulson et al. 2004). Specifically, the SIR deterministic 
skeleton is 


‘'•S IP m R A 

dR 


(16) 


It is typically impossible to monitor S, I, and R, directly. It sometimes happens, however, 
that public health authorities keep records of cases, i.e., individual infections. The number of 
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cases, C{ti,t 2 ), recorded within a given reporting interval [ti,t 2 ) might perhaps be modeled 
by a negative binomial process 

C{ti,t2) ~ l<iegBm{pANsi{ti,t2),0) (17) 

where ANsi{ti,t 2 ) is the true incidence (the accumulated number of new infections that have 
occured over the [ti,t 2 ) interval), p is the reporting rate, (the probability that an infection is 
observed and recorded), 9 is the negative binomial “size” parameter, and the notation is meant 
to indicate that K[C{ti,t 2 ) \ ANsi{ti,t 2 ) = H] = pH and Var [C(ti,t 2 ) | ^Afsi{ti,t 2 ) = H] = 
pH + p^ H"^/9. The fact that the observed data are linked to an accumulation, as opposed to 
an instantaneous value, introduces a slight complication, which we discuss below. 

5.2. Implementing the SIR model in pomp 

As before, we will need to write functions to implement some or all of the SIR model’s 
rprocess, rmeasure, and dmeasure components. As in Section 4.5, we will write these 
components using pomp’s Csnippets. Recall that these are snippets of C code that pomp 
automatically assembles, compiles, and dynamically loads into the running R session. 

To start with, we will write snippets that specify the measurement model (rmeasure and 
dmeasure): 

R> rmeas <- " 

+ cases = rnbinom_mu(theta, rho * H); 

+ " 

R> dmeas <- " 

+ lik = dnbinom_mu(cases, theta, rho * H, give_log); 

+ " 

Here, we are using cases to refer to the data (number of reported cases) and H to refer to 
the true incidence over the reporting interval. The negative binomial simulator rnbinom_mu 
and density function dnbinom_mu are provided by R. The logical flag give_log requests 
the likelihood when FALSE, the log likelihood when TRUE. Notice that, in these snippets, we 
never declare the variables; pomp will ensure that the state variable (H), observable (cases), 
parameters (theta, rho), and likelihood (lik) are defined in the contexts within which these 
snippets are executed. 

For the rprocess portion, we could simulate from the continuous-time Markov process exactly 
(Gillespie 1977); the pomp function gillespie. sim implements this algorithm. However, for 
practical purposes, the exact algorithm is often prohibitively slow. If we are willing to live 
with an approximate simulation scheme, we can use the so-called “tau-leap” algorithm, one 
version of which is implemented in pomp via the euler. sim plug-in. This algorithm holds the 
transition rates A, p, 7 constant over a small interval of time At and simulates the numbers 
of births, deaths, and transitions that occur over that interval. It then updates the state 
variables S, I, R accordingly, increments the time variable by At, recomputes the transition 
rates, and repeats. Naturally, as At —?■ 0, this approximation to the true continuous-time 
process becomes better and better. The critical feature from the inference point of view, 
however, is that no relationship need be assumed between the Euler simulation interval At 
and the reporting interval, which itself need not even be the same from one observation to 
the next. 
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Under the above assumptions, the number of individuals leaving any of the classes by all 
available routes over a particular time interval is a multinomial process. For example, if 
AA^si and ANs are the numbers of S individuals acquiring infection and dying, respectively, 
over the Euler simulation interval [t,t + At), then 

(AiVsi, ANs, S - ANsi - ANs) ~ Multinom {S{t);ps^i,ps^, 1 - Ps^i - PS ^), (18) 


where 


Ps^i = 


PS^ = 


m 

A(t) + p 
P 

A(t) + p 


_ g—iMP+E) 


(19) 


By way of shorthand, we say that the random variable (AAgi, ANs) in Eq- 18 has an Euler- 
multinomial distribution. Such distributions arise with sufficient frequency in compartmen- 
tal models that pomp provides convenience functions for them. Specihcally, the functions 
reulermultinom and deulermultinom respectively draw random deviates from, and evaluate 
the probability mass function of, such distributions. As the help pages relate, reulermultinom 
and deulermultinom parameterize the Euler-multinomial distributions by the size {S{t) in 
Eq. 18), rates (A(t) and p), and time interval At. Obviously, the Euler-multinomial distribu¬ 
tions generalize to an arbitrary number of exit routes. 

The help page (?euler. sim) informs us that to use euler. sim, we need to specify a function 
that advances the states from t to t -|- At. Again, we will write this in C to realize faster 
run-times: 


R> sir.step <- " 

+ double rate[6]; 

+ double dN [6]; 

+ double P; 

+ P=S+I+R; 

+ rate[0] = mu * P; 

+ rate [1] = beta * I / 

+ rate[2] = mu; 

+ rate[3] = gamma; 

+ rate[4] = mu; 

+ rate[5] = mu; 

+ dN[0] = rpois(rate[0] 

+ reulermultinom(2, S, 

+ reulermultinom(2, I, 

+ reulermultinomd, R, 

+ S += dN[0] - dN[l] - 

+ I += dN[l] - dN[3] - 

+ R += dN [3] - dN [5] ; 

+ H += dN[l] ; 

+ " 


// birth 

P; // transmission 
// death from S 
// recovery 
// death from I 
// death from R 
* dt); 

&rate [1] , dt, &dN[l]); 
&rate[3], dt, &dN[3]); 
&rate[5], dt, &dN[5]); 
dN[2] ; 
dN[4] ; 


As before, pomp will ensure that the undeclared state variables and parameters are defined 
in the context within which the snippet is executed. Note, however, that in the above we 
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do declare certain local variables. In particular, the rate and dN arrays hold the rates and 
numbers of transition events, respectively. Note too, that we make use of pomp’s C interface 
to reulermultinom, documented in the package help pages (?reulermultinom). The package 
help system (?Csnippet) includes instructions for, and examples of, the use of Csnippets. 
Two significant wrinkles remains to be explained. First, notice that in sir. step, the variable H 
simply accumulates the numbers of new infections; H is a counting process that is nondecreas¬ 
ing with time. In fact, the incidence within an interval [ti,t 2 ) is AA^si(^i)^ 2 ) = ^(^ 2 ) ~ H(ti). 
This leads to a technical difficulty with the measurement process, however, in that the data 
are assumed to be records of new infections occurring within the latest reporting interval, 
while the process model tracks the accumulated number of new infections since time to- We 
can get around this difficulty by re-setting H to zero immediately after each observation. We 
cause pomp to do this via the pomp function’s zeronames argument, as we will see in a mo¬ 
ment. The section on “accumulator variables” in the pomp help page (?pomp) discusses this in 
more detail. 

The second wrinkle has to do with the initial conditions, i.e., the states S{to), I{to), R{to). 
By default, pomp will allow us to specify these initial states arbitrarily. For the model to 
be consistent, they should be positive integers that sum to the population size N. We can 
enforce this constraint by customizing the parameterization of our initial conditions. We do 
this in by furnishing a custom initializer in the call to pomp. Let us construct it now and 
fill it with simulated data. 

R> pompCdata = data.frame(cases = NA, time = seq(0, 10, by=l/52)), 

+ times = "time", tO = -1/52, dmeasure = Csnippet(dmeas), 

+ rmeasure = Csnippet(rmeas), rprocess = euler.sim( 

+ step.fun = Csnippet(sir.step), delta.t = 1/52/20), 

+ statenames = c("S", "I", "R", "H"), 

+ paramnames = cC'gamma", "mu", "theta", "beta", "popsize", 

+ "rho", "S.O", "I.O", "R.O"), zeronames=c("H"), 

+ initializer=function(params, tO, ...) { 

+ fracs <- params[c("S.O", "I.O", "R.O")] 

+ setNames(c(round(params["popsize"]*fracs/sum(fracs)),0), 

c("S","I","R","H")) 

+ }, params = c(popsize = 500000, beta = 400, gamma = 26, 

+ mu = 1/50, rho = 0.1, theta = 100, S.O = 26/400, 

+ I.O = 0.002, R.O = D) -> sirl 

R> simulate(sirl, seed = 1914679908L) -> sirl 

Notice that we are assuming here that the data are collected weekly and use an Euler step-size 
of 1/20 wk. Here, we have assumed an infectious period of 2 wk (I /7 = 1/26 yr) and a basic 
reproductive number, Rq of (3/{'y + p) ^ 15. We have assumed a host population size of 
500,000 and 10% reporting efficiency. Fig. 8 shows one realization of this process. 
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sir1 



time 



time 


Figure 8; Result of plot(sirl). The class ‘pomp’ object sirl contains the SIR model with 
simulated data. 
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5.3. Complications: Seasonality, imported infections, extra-demographic 
stochasticity 

To illustrate the flexibility afforded by pomp’s plug-and-play methods, let us add a bit of 
real-world complexity to the simple SIR model. We will modify the model to take four facts 
into account: 

1. For many infections, the contact rate is seasonal: (3 = (3{t) varies in more or less periodic 
fashion with time. 

2. The host population may not be truly closed: imported infections arise when infected 
individuals visit the host population and transmit. 

3. The host population need not be constant in size. If we have data, for example, on the 
numbers of births occurring in the population, we can incorporate this directly into the 
model. 

4. Stochastic fluctuation in the rates A, p, and 7 can give rise to extrademographic stochas- 
tieity, i.e., random process variability beyond the purely demographic stochasticity we 
have included so far. 

To incorporate seasonality, we would like to assume a flexible functional form for /3(t). Here, 
we will use a three-coefficient Fourier series: 

log (3(t) = bo + bi cos 2TTt + 62 sin 27rt. (20) 

There are a variety of ways to account for imported infections. Here, we will simply assume 
that there is some constant number, l, of infected hosts visiting the population. Putting this 
together with the seasonal contact rate results in a force of infection X{t) = j3{t) {I{t) -|- t) /N. 

To incorporate birth-rate information, let us suppose we have data on the number of births 
occurring each month in this population and that these data are in the form of a data frame 
birthdat with columns time and births. We can incorporate the varying birth rate into 
our model by passing it as a covariate to the simulation code. When we pass birthdat as 
the covar argument to pomp, we cause a look-up table to be created and made available to 
the simulator. The package employs linear interpolation to provide a value of each variable 
in the covariate table at any requisite time: from the user’s perspective, a variable births 
will simply be available for use by the model codes. 

Finally, we can allow for extrademographic stochasticity by allowing the force of infection to 
be itself a random variable. We will accomplish this by assuming a random phase in /3: 

A(t) = (^mm) ( 21 ) 

where the phase satisfies the stochastic differential equation 

d^ = dt + adWt, (22) 

where dW{t) is a white noise, specifically an increment of standard Brownian motion. This 
model assumption attempts to capture variability in the timing of seasonal changes in trans¬ 
mission rates. As a varies, it can represent anything from a very mild modulation of the 
timing of the seasonal progression to much more intense variation. 

Let us modify the process-model simulator to incorporate these complexities. 
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R> 

seas.sir.step <- " 



+ 

double rate[6]; 



+ 

double dN [6]; 



+ 

double Beta; 



+ 

double dW; 



+ 

Beta = exp(bl + b2 * 

cos(M_2PI * 

Phi) + b3 * s: 

+ 

rate[0] = births; 


// birth 

+ 

rate[l] = Beta * (I -t 

• iota) / P; 

// infection 

+ 

rate [2] = mu; 


// death from 

+ 

rate [3] = gamma; 


// recovery 

+ 

rate[4] = mu; 


// death from 

+ 

rate [5] = mu; 


// death from 

+ 

dN[0] = rpois(rate[0] 

* dt); 


+ 

reulermultinom(2, S, 

ferate [1] , dt, &dN[l]); 

+ 

reulermultinom(2, I, 

ferate [3], dt, &dN[3]); 

+ 

reulermultinomd, R, 

&rate[5], dt, &dN[5]); 

+ 

dW = rnorm(dt, sigma 

* sqrt(dt)) 

> 

+ 

S += dN[0] - dN[l] - 

dN[2] ; 


+ 

I += dN[l] - dN[3] - 

dN[4] ; 


+ 

R += dN[3] - dN [5] ; 



+ 

P = S + I + R; 



+ 

Phi += dW; 



+ 

H += dN[l] ; 



+ 

noise += (dW - dt) / 

sigma; 


+ 

tt 




R> pompCsirl, rprocess = euler.sim( 

+ step.fun = Csnippet(seas.sir.step), delta.t = 1/52/20), 

+ dmeasure = Csnippet(dmeas), rmeasure = Csnippet(rmeas), 

+ covar = birthdat, tcovar = "time", zeronames = c("H", "noise"), 

+ statenames = c("S", "I", "R", "H", "P", "Phi", "noise"), 

+ paramnames = c("gamma", "mu", "popsize", "rho","theta","sigma", 

+ "S.O", "I.O", "R.O", "bl", "b2", "b3", "iota"), 

+ initializer = function(params, tO, ...) { 

+ fracs <- params[c("S.O", "I.O", "R.O")] 

+ setNames(c(round(params["popsize"]*c(fracs/sum(fracs),1)),0,0,0), 

+ c("S","I","R","P","H","Phi","noise")) 

+ }, params = c(popsize = 500000, iota = 5, bl = 6, b2 = 0.2, 

+ b3 = -0.1, gamma =26, mu = 1/50, rho = 0.1, theta = 100, 

+ sigma = 0.3, S.O = 0.055, I.O = 0.002, R.O = 0.94)) -> sir2 

R> simulate(sir2, seed = 619552910L) -> sir2 


Fig. 9 shows the simulated data and latent states. The sir2 object we have constructed here 
contains all the key elements of models used within the pomp to investigate cholera (King 
et al. 2008), measles (He et al. 2010), malaria (Bhadra et al. 2011), pertussis (Blackwood 
et al. 2013a; Lavine et al. 2013), pneumococcal pneumonia (Shrestha et al. 2013), rabies 
(Blackwood et al. 2013b), and Ebola virus disease (King et al. 2015a). 


465000 475000 0 500 
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6. Conclusion 

The pomp package is designed to be both a tool for data analysis based on POMP models 
and a sound platform for the development of inference algorithms. The model specification 
language provided by pomp is very general. Implementing a POMP model in pomp makes a 
wide range of inference algorithms available. Moreover, the separation of model from inference 
algorithm facilitates objective comparison of alternative models and methods. The examples 
demonstrated in this paper are relatively simple, but the package has been instrumental in a 
number of scientific studies (e.g.. King et al. 2008; Bhadra et al. 2011; Shrestha et al. 2011; 
Earn et al. 2012; Roy et al. 2012; Shrestha et al. 2013; Blackwood et al. 2013a,b; Lavine et al. 
2013; He et al. 2013; Breto 2014; King et al. 2015a). 

As a development platform, pomp is particularly convenient for implementing algorithms with 
the plug-and-play property, since models will typically be defined by their rprocess simulator, 
together with measure and often dmeasure, but can accommodate inference methods based 
on other model components such as dprocess and skeleton (the deterministic skeleton of the 
latent process). As an open-source project, the package readily supports expansion, and the 
authors invite community participation in the pomp project in the form of additional infer¬ 
ence algorithms, improvements and extensions of existing algorithms, additional model/data 
examples, documentation contributions and improvements, bug reports, and feature requests. 

Complex models and large datasets can challenge computational resources. With this in mind, 
key components of the pomp are written in C, and pomp provides facilities for users to write 
models either in R or, for the acceleration that typically proves necessary in applications, 
in C. Multi-processor computing also becomes necessary for ambitious projects. The two 
most common computationally intensive tasks are assessment of Monte Carlo variability and 
investigation of the role of starting values and other algorithmic settings on optimization 
routines. These analyses require only embarrassingly parallel computations and need no 
special discussion here. 

The package contains more examples (via pompExample), which can be used as templates for 
implementation of new models; the R and C code underlying these examples is provided with 
the package. In addition, pomp provides a number of interactive demos (via demo). Further 
documentation and an introductory tutorial are provided with the package and on the pomp 
website, http: //kingaa. github. io/pomp. 
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